Option Explicit
Sub P_Sample011()
    Dim myOldName As String
    Dim myNewName As String
    'ɮ
    myOldName = ThisWorkbook.Path & "\" & "P_Test1.txt"           'lɮ
    myNewName = ThisWorkbook.Path & "\" & "Tmp1\P_Test2.csv"      'wʥؼ
    If Len(Dir(myOldName)) > 0 Then
        Name myOldName As myNewName
    Else
        Name myNewName As myOldName
    End If
    'ɮ
    myOldName = ThisWorkbook.Path & "\" & "Tmp1\tmptmp"         'lƧ
    myNewName = ThisWorkbook.Path & "\" & "Tmp2\tmptmp" 'wʥؼ
    If Len(Dir(myOldName, vbDirectory)) > 0 Then
        Name myOldName As myNewName
    Else
        Name myNewName As myOldName
    End If
End Sub
